unit data;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, IfxTable, LXDataSetImpl, LXUpdateSQL, IfxUpdateSQL, IfxDataSet,
  IfxCustomDataset, IfxQuery, IfxConnection, IfxVisualMonitor,
  IfxFileMonitor, IfxMonitor, IfxSQL, IfxFieldTypes, IfxNativeFields;

type
  TdmMain = class(TDataModule)
    connStores7: TIfxConnection;
    datasetCustOrders: TIfxQuery;
    datasetCustCalls: TIfxTable;
    datasrcCustomers: TDataSource;
    datasrcCustOrders: TDataSource;
    datasrcCustCalls: TDataSource;
    datasetCallTypes: TIfxDataSet;
    IfxFileMonitor1: TIfxFileMonitor;
    IfxVisualMonitor1: TIfxVisualMonitor;
    updateCustOrders: TIfxUpdateSQL;
    datasetCustomers: TIfxTable;
    IfxCompositMonitor1: TIfxCompositMonitor;
    datasetCustCallscustomer_num: TIntegerField;
    datasetCustCallscall_dtime: TDateTimeField;
    datasetCustCallsuser_id: TStringField;
    datasetCustCallscall_code: TStringField;
    datasetCustCallscall_descr: TStringField;
    datasetCustCallsres_dtime: TDateTimeField;
    datasetCustCallsres_descr: TStringField;
    datasetCustCallscallcodedescr: TStringField;
    IfxFieldTypes1: TIfxFieldTypes;
  public
    procedure ToggleActivity;
  end;

var
  dmMain: TdmMain;

implementation

{$R *.DFM}

{ TdmMain }

procedure TdmMain.ToggleActivity;
begin
  connStores7.Connected := not connStores7.Connected;
  datasetCustomers.Active := connStores7.Connected;
  datasetCustOrders.Active := connStores7.Connected;
  datasetCustCalls.Active := connStores7.Connected;
end;

end.
